home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / AppleScripts / ps2pdf-old.text < prev    next >
Text File  |  1997-12-25  |  1KB  |  40 lines
  1. on open fileDropList
  2.     set theCount to count of fileDropList
  3.     set filesProcessed to 0
  4.     tell application "MacGS-510 FAT" to activate
  5.     repeat with i from 1 to theCount
  6.         set theFile to item i of fileDropList as alias
  7.         set theInfo to info for theFile
  8.         set theType to file type of theInfo
  9.         set theFileName to item i of fileDropList as string
  10.         if theType = "TEXT" or theType = "EPSF" then
  11.             ProcessFiles(theFileName)
  12.             set filesProcessed to filesProcessed + 1
  13.         end if
  14.     end repeat
  15.     if filesProcessed > 0 then
  16.         if filesProcessed is equal to 1 then
  17.             set resultString to "One file was processed."
  18.         else
  19.             set resultString to {theCount, " files were processed."} as string
  20.         end if
  21.     else
  22.         set resultString to {"No files were processed."} as string
  23.     end if
  24.     display dialog resultString buttons "OK" with icon 1 default button 1
  25. end open
  26.  
  27. on ProcessFiles(theFile)
  28.     set thePDFfile to {theFile, ".pdf"} as string
  29.     set theCommandLine to {"-q -dNOPAUSE -dBATCH -dCompatibilityLevel=1.1 -sDEVICE=pdfwrite -sOutputFile=\"", thePDFfile, "\" -c save pop -f \"", theFile, "\""} as string
  30.     tell application "MacGS-510 FAT"
  31.         «event gsVRexec» theCommandLine
  32.     end tell
  33.     
  34. end ProcessFiles
  35.  
  36. on run
  37.     set theFile to (choose file of type {"TEXT", "EPSF"}) as string
  38.     ProcessFiles(theFile)
  39. end run
  40.